home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / borland / svgabg52.zip / SVGA16.INC < prev    next >
Text File  |  1993-04-20  |  1KB  |  40 lines

  1. (************************************************)
  2. (*                         *)
  3. (*      SuperVGA 16 BGI driver defines    *)
  4. (*        Copyright (c) 1991        *)
  5. (*        Jordan Hargraphix Software        *)
  6. (*                        *)
  7. (************************************************)
  8.  
  9. type DacPalette16 = array[0..15] of array[0..2] of Byte;
  10.  
  11. (* These are the currently supported modes *)
  12. const
  13.   SVGA320x200x16    = 0;    (* 320x200x16 Standard EGA/VGA *)
  14.   SVGA640x200x16    = 1;    (* 640x200x16 Standard EGA/VGA *)
  15.   SVGA640x350x16    = 2;    (* 640x350x16 Standard EGA/VGA *)
  16.   SVGA640x480x16    = 3;    (* 640x480x16 Standard VGA *)
  17.   SVGA800x600x16    = 4;    (* 800x600x16 SuperVGA/VESA *)
  18.   SVGA1024x768x16    = 5;    (* 1024x768x16 SuperVGA/VESA *)
  19.   SVGA1280x1024x16    = 6;    (* 1280x1024x16 SuperVGA/VESA *)
  20.  
  21.  
  22. (* Setvgapalette sets the entire 16 color palette *)
  23. (* PalBuf contains RGB values for all 16 colors   *)
  24. (* R,G,B values range from 0 to 63               *)
  25. procedure SetVGAPalette16(PalBuf : DacPalette16);
  26. var
  27.   Reg : Registers;
  28.  
  29. begin
  30.   reg.ax := $1012;
  31.   reg.bx := 0;
  32.   reg.cx := 16;
  33.   reg.es := Seg(PalBuf);
  34.   reg.dx := Ofs(PalBuf);
  35.   intr($10,reg);
  36. end;
  37.  
  38.  
  39.  
  40.